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| 
“ee 001 0 MODULE TRANSLATE BIT | } 
; 2 : ¢ (ZTITLE scenes ate b bits to text’ ' 
; 3 Ident = 'V04 ! 
; 4 004 1 Begin Q3' 
Pan’ 005 1 | | 
: ? a007 Opperman ha laa ta j 
3 'e ® 
3 9 $009 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 10 0010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 03 
3 \} 001, : . ALL RIGHTS RESERVED ® 03 
Py : w 
5 ig org 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND Sg Ld % 03 
3 14 00146 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH yt SE AND WITH THE * 
3 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | 
3 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
3 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 0018 1 !® TRANSFERRED. ® | 
; 19 0019 1 !* « 04 
3 $9 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 04 
: 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 04 
; $¢ 98 ¢ | ‘® CORPORATION. . be 
: Si 0024 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 04 
4 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
BOREL 3 s 
: 28 0099 MEEITITIIIIII ILI LLL LLL LLL LLL TLL LLL LLL iii lilt ili tii 8 
; 9 0029 1 
; 0 0050 1 !++ 04 
: 1 9031 : FACILITY: ERF, Error Log Report Generator be 
; 38 0038 | ABSTRACT: 04 
: 3¢ Bo Re 1? This module contains that translates bit to text for single 04 
; 36 036 1! bit fields. 04 
: 37 0037 1 | 04 
: 38 0038 1 | ENVIRONMENT: 04 
3 9 0039 1! 
: 40 5060 | VAX/VMS operating system, user mode. Re 
; $§ Ones ' AUTHOR: Sharon Reynolds, CREATION DATE: 20-Feb-1984 | Be 
ae 044 1 | | 
s 65 045 1! v04-001 sancces Sharon A, Reynolds 22-Jul-1984 $4 
: 46 0046 1! ded FAO string building as a function of this Be 
5 rtf 004 : By ed 
: 9 “9 REQUIRE 'SRCS:ERFDEF.REQ' ; | 
> 51 1 FORWARD ROUTINE 
; 26 ' Translate_bits ; | 04 
; 2 3 1 EXTERNAL ROUTINE | 04 
3 5 40 1 LibSget_vm ; | 
3 § 41 1 Oa 
3 0342 1 OWN 
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TRANSLATE BITS Translate bits to text 18. 
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i- & 47 1 GLOBAL Routine TRANSLATE_BITS (register fontents., register mesh. Spec table, ! 
; 66 8 1 out_arglist,fao_string,control_flag) = 
Py 2 rH Begin | 
<< ¢ 1 2 !4 2 
; 68 § : | 
; , ? Functional Description: Ba 
ro 5 2! Given the mask of bits to translate, this routine will translate b2 
airs. 3 § ; bit to text for a given register. It will build a list of the > 
eS 5 \ addresses of the descriptors of the text that needs to be 05 
> 24 28 output. If the ‘control flag’ is 'O' then all set bits are 82 
; : translated; if the ‘confrol_flag’ is ‘1’ then all clear bits > 
; 0360 ; are translated. An FAO string will be built and the address 05 
; i 036] returned to the calling routine. B2 
; S O38 Calling Sequence: be 
: Bi 0365 : TRANSLATE_BITS bragteter contents,register_mask,descriptor_table, 05 
; Be 0366 out_arglist,fao_string,control_flag) ; 82 
: ee o3e8 Input Parameters: O2! 
; | «(86 0370 ' register_contents = binary data, 05 
3; 87 0371 \ register _mask 2 Longword indicating which bits should be translated 05, 
; «88 O37¢ i (bit set = bit translated), 05 
> & 037 : descriptor_table = address of descriptor table porns sae to text, 05, 
; 90 0374 ' control_flag = if 'O' then translate bits that are set, if ‘1’ 05, 
; 91 0375 ; then translate bits that are clear 82 
3 or Bee 5 Output Parameters: F3 
: 95 0379 ‘ ; Out_argiisi = veiurns the address of a list of the addresses of 05 
; 0380 é ! the descriptors for the text that should be output. 05 
= oF 0381 ‘ fao_string = returns the address of descriptor for the FAO string 05 
; «98 0382 ' that got built. 82 
; 9 038 ! 08 
: 108 ta a 05 
; 108 0386 2 LOCAL 05: 
3; 10 O387 Blk_index: Initial (0), 05: 
> 104 88 Index: Initial (0), 83 
3 19 0389 Arg_index: Byte ;. 
: 198 8 90 Initial (0), é. 
: 10 91 End_bit: Byte é 
; 108 0336 Initial (byte(31)), é 
: 109 8 9 Start_bit: Byte ;, 
; 110 394 Initial (0) 

> 111 0395 Bit_position: Initial (6), 

: Ve 338 Field_size: Byte, 

, 17 9 Start_position, 

3 (116 398 Status ; 

: He 200 MAP 

; 119 20) Register_contents: REF S$BBLOCK, 0 
; 118 108 Register_mask: REF $BBLOCK 8 
> 119 040 Desc_table: REF BLOCKVECTOR [,2,long) ; 
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BUILTIN 
FFS ; 
If first execution, then get the fao string storage. 
f .initial_execution EQ. 0 
hen 
porte 
Initial_execution = 1 ; 
If NOT Tstatus = LIBSGET_VM (ZREF (500), fao_string_desc(dsc$a_pointer])) 


| 
Then 
Signal_stop (.status) ; 

End ; 
| 
| 
| 
| 
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i] 
Find starting bit for the translation (from the mask). 


Field_size = 32; 
Start_position = 0 ; 


Until -ptert_pesttton GEQ 32 do 


egin 
If NOT (FFS (start_position, field size, — 
.register_mask,bit_position)) 


3 
: 

5 
82 

5 
82 

5 
05 
05 
8 

5 
05 
05 
05 
05 
05 
05 
05 
05 
05 
5) 
5 
5) 
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Then 
Begin 
If .start_position EQL 0 
n 
Start_bit = .bit_position 
e 
End_bit = .bit_position ; 


— 
WO Ruin O Doo NOUN Uo 
FRERLERRELRLERERRRRRRRRRRREREE 
te bb) 4 + sb 5 
uw 


COOONOA NEW OOOO NEW 3 0 ODA UNE WIN OO ONOUV EWN" OOOVNC UE Wh" 00 


End 


Start_position = .bit_position + 1 ; 
pogid_stse = 32 - .start_position ; 
ng ; 
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Determine if the bits should be translated. If so, determine if the 
bit is set/clear and whether it should be translated. If so, get the 
address of the descriptor for the associated text. 
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te 


incr index from .start_bit to .end_bit do 


= 


egin 
If .register_mask(0,.index,1,0) 
Then 


Begin 
1f (NOT .-control flag AND .register_contents(0,.index,1,0]) 
OR ((..control_flag) AND (NOT .register_contents(0,.index,1,0])) 


Then 


Begin 
Arglist(.arg. index) = desc_table(.blk_index,0,0,0,0) ; 
org. index = ,arg_index + 1 ; 
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TRANSLATE_BITS Translate bits to text 
yoon000 ‘2 : 


Blk index = .blk_index + 1 ; 
End ; 


End ; 


arg_index NEQ 0 

Begin 

-Out_arglist = arglist ; 
-Fao_string = fao “string. desc ; 


Fao_ string Gescldecsy, 
BUICD FAO_STRING ( 


Return true ; 
nd 


ength) 


Return false ; 


T39< !> 1AS*, "thes 
(arg. index - 1);' 


& 
1}-sep-1964 25:55:21 yaNett al iss-32 v4.0-74 


Determine whether any bits were translated, set up the output argument 
address and the address of the descriptor bo 
to the calling routine, build and FAO string, and return with a true value. 


r the FAO string for return 


ttF log desc, 
1/1392 !>!AS', fao_string_desc) ; 


End ; ' Routine 
-TITLE TRANSLATE_BITS Translate bits to text 
-IDENT \v04-000\~ 
-PSECT SPLIT,NOWRT,NOEXE, PIC,2 
iA Bn a Ss FW 3 si 0000 P.AAB: .ASCII \!39<_ !>!AS\<0><0> 
10E00 OO0C P.AAA: .LONG Sg. 4730 
0000000" 00010 ADDRESS P 
3€ 21 20 3¢ 39 33 21 F st 0014 P.AAD: .A Nik; < '>!'AS\ 
4 £08 C bose P.AAC: .LONG 17694 
0000000" 00024 -ADDRESS P.AAD 
-PSECT SOWNS,NOEXE, PIC,2 
00000 ARGLIST:.BLKB 124 
0007C FAO_ STRING pests 
00000000 00084 INITIAL EXECUTION: 
STR_DESC= P.AAA 
STR-DESC= P. AAC 
.EXTRN LIBSGET_VM 
-PSECT SCODE,NOWRT, PIC,2 
OFFC 00000 ENTRY OAL ATE BITS, Save R2,R3,R4,R5,R6,R7,R8,- 
B 900 900 00° S 002 MOVAB STR_DESC, R11 
A HOVAB FAO-STRING_DESC, R10 
E 010 SUBL #4, SP 
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, | 
TRANSLATE _BITS Translate bits to text 13-se 1984 23:55: AX-11 Bliss-32 V4.0-74 Pa TS 
Mve tt 12-808= 1382 $3:38: 45 ERF.SRCITRNS_BITS.B32; - 2 
Q 4 0001 CLRL INDEX 3 0349 
4 0001 CLRB ARG INDEX : 
55 F 90 0001 MOVB #31- END BIT : 
2 4 OOO1A CLRB = START BIT : 
2 1C CLRQ  BLK_IRDEX : 
08 AA : 1 iste INITIAL EXECUTION 3 0411 
08 AA 83 MOVL #1, INITIAL_EXECUTION + 0414 
04 AA OF 0 PUSHAB Fad STRING BESC+4 + 0415 06 
04 AE O1F4 BF 3C A MOVZWwL #500, 4(SPY : 06 
04 AE 9F 000 9 USHAB 4(SPS : 06 
000000006 09 FB 98 CALLS #2 L1BSGET_VM : $e 
5 D BHSHL StAtUs. + 0417 06 
000000006 99 1 FB 09 F CALLS #1, LIBSSTOP : 38 
1 0 9 O46 1$ OVE #32, FIELD SIZE + 0423 | 
0 D4 0004 CLRL  START_POSITION 3 0424 06 
20 0 D1 00048 2$ CMPL START_POSITION, #32 3 0426 06) 
iE 18 OO04E BGEO 4 : 
53 08 BC 51 50 EA 0005 FFS START_POSITION, FIELD_SIZE, - : 0428 
@REGISTER_MASK, BIT_POSITION : 
g¢ 13 00056 BEQL «6s «4$ : 
9 D5 00058 TSTL TART_POSITION + 0432 
0 12 0005A BNEQ ; 
54 53 70 b005¢ nove BIT_POSITION, START_BIT + 0434 
55 33 90 00061 3$ MOVB  BIT_POSITION, END_BIT : 0436 
50 01 =A 4 00064 4$ MOV 1(R3), START POSITION : 0439 
51 20 50 83 00068 SUBB TART_POSITION, #32, FIELD_SIZE + 0440 
pp 11 9006¢ BRB : 0426 
53 9A 0006E 5S MOVZBL END_BIT, R3 : 0448 
51 54 9a 00071 MOVZBL START_BIT, INDEX : 
51 D7 00074 DECL INDEX : 
23 11 0076 BRB 10$ : 
20 08 BC 1 £1 00078 6S: BBC INDEX, @REGISTER_MASK, 10$ + 0450 
09 18 et 8 9070 BLBS § @CONTROL FLAG, 7 > 0453 
09 04 BC 1 €0 00081 BBS INDEX, @REGISTER CONTENTS, 8$ : 
11 18 BC E9 00086 BLBC  @CONTROL FLAG, 9 > 0454 
0c 04 BC 1 £0 SOBA 7$ BBS INDEX, @REGISTER_CONTENTS, 9% ; | 
0 9 9A OOOBF 8$ MOVZBL ARG_INDEX, RO : 0457 
84 AAGO 0c BC4e E 009 MOVAQ a@DESC_TABLECBLK_INDEX], ARGLISTCROJ 3 07 
96 000 INCB  ARG_IRDEX : 0458 07 
D6 0009B 9$: INCL BLKTINDEX : 0461 07 
D7 51 7 8 9D 10$ AOBLEQ R35, INDEX, 6$ 3 0448 4 
9 Al TSTB = ARG_INDEX : 0470 7 
4c 1 a3 BEQL 4$ ; 07 
10 BC 84 AA 9E OOOA MOVAB ARGLIST, @OUT_ARGLIST > 0473 07 
14 BC 6A 9E OAA MOVAB FAO_STRING_DESC, a@FAO_STRING > 0474 07 
6A B4 A CLRW FAO-STRING DESC : 0476 7 
57 6B B MOVZWL STRTDESC, R : 0478 7 
8 04 AB D 3 B MOVL STR-DESC+4, RB : 7? 
26 01 B MOVL “1,71 ; ? 
: 6A BA 11$ MOVZ2WL FAO_STRING_DESC, RO F 07 
9 04 AA g 8 ADDL FAO-STRING DESC #4, RO : 4 
60 6 C MOVC R7, (RB), TRO) : 7 
6A 7 A C3 ADDW2 R7, FAO STRING_DESC : 8? 
EE a 1 F3 000C¢ AOBLEQ #1, I, TIS ; 7 


8 

TRANSLATE_BITS Translate bits to text 15-Se 1984 23:55: AX-11 Bliss-32 V4.0-74 
Mvae 127808-}382 $3:33:45 Lehr SRETANS BITS B30¢4 

3 59 3 cc MOVZBL ARG_INDEX, R9 

146 AB f C MOVZWL STR-DESC, R7 
8 18 48 i) ) poy STR_DESC+4, RB 
3 4 D CLAL i 
e279 d9 BRR 3$ 
2 6A DB 12$: MOVZWL FAO_STRING_DESC, RO 
046 AA § D ADDL FAO_STRING +5 pied RO 
60 6 7 E MOVC R7, (RB), TRO) 
A 7 A E ADDW2 R7, FAO STRING_DESC 
EE 6g 9 F E9 13$ AOBLSS R9, I, Tes 
1 0 ED MOVL #1, RO 
04 pore RET 
50 D4 Fi 14$: CLRL RO 
04 000F3 RET 
; Routine Size: 244 bytes, Routine Base: S$CODE + 0000 
: 201 0485 1 
: 20 0486 1 End 
: 20 0487 0 ELUDOM 
-EXTRN LIBSSTOP 

; PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 136 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; SPLIT 40 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; SCODE 244 NOVEC,NOWRT, RD EXE,NOSHR, LCL, - CON, PIC,ALIGN(2) 
: Library Statistics 
: eoccecee ymbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
> _$255$DUA28:CSYSLIBILIB.L32;1 18619 0 1000 00:01.9 
3 COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:TRNS_BITS/OBJ=OBJ$:TRNS_BITS MSRC$:TRNS_BITS/UPDATE=(ENHS$: TRNS_BITS) 
3; Size: 244 gode + 176 data bytes 
3; Run Time: 00:09.5 
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